home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / hmfsho.zip / SSGRID.LSP < prev    next >
Lisp/Scheme  |  1991-11-11  |  1KB  |  45 lines
  1. (defun C:SSGRID()
  2.   (prompt "\nSlideShow Grid v3.0, by HMF CONSULTING (215) 275-9866")
  3.   (prompt "\n-----------------------------------------------------")
  4.   (setq NROW (getint "\nROWS: ")
  5.         NCOL (getint "\nCOLUMNS: ")
  6.         LEN (car (getvar "VSMAX"))
  7.         WID (cadr (getvar "VSMAX"))
  8.         PLL (list 0.0 0.0)
  9.         PLR (list LEN 0.0)
  10.         PUR (list LEN WID)
  11.         PUL (list 0.0 WID)
  12.         TH (/ WID 4.0)
  13.   )
  14.   (setvar "cmdecho" 0)
  15.   (setvar "blipmode" 0)
  16.   (command ".layer" "m" "ssgrid" "c" "y" "" "")
  17.   (command ".pline" PLL PLR PUR PUL "c")
  18.   (command ".array" "l" "" "r" NROW NCOL WID LEN)
  19.  
  20. ;--- ZOOM each grid and assign VIEW name
  21.  
  22.   (setq IROW 1)
  23.   (while (<= IROW NROW)
  24.      (setq ICOL 1)
  25.      (while (<= ICOL NCOL)
  26.             (setq PLL (list (* LEN (- ICOL 1)) (* WID (- IROW 1)))
  27.                   PUR (list (* LEN ICOL) (* WID IROW))
  28.             )
  29.             (command ".zoom" "w" PLL PUR)
  30.             (setq TP (getvar "VIEWCTR")
  31.                   TX (strcat (itoa IROW) "-" (itoa ICOL))
  32.             )
  33.             (command ".text" "m" TP TH "0" TX)
  34.             (prompt (strcat "\n*** Processing grid " TX))
  35.             (command ".view" "s" TX)
  36.         (setq ICOL (1+ ICOL))
  37.       )                             ;--- end column loop
  38.       (setq IROW (1+ IROW))
  39.   )                                 ;--- end row loop
  40.   (setvar "cmdecho" 1)
  41.   (command ".zoom" "a")
  42.   (command ".layer" "s" "0" "")
  43.   (prin1)
  44. )
  45.